home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / xlib.lha / xlib / depth.t < prev    next >
Text File  |  1990-06-01  |  615b  |  16 lines
  1. (herald depth (env tsys (xlib interface)))
  2. (DEFINE (MAKE-DEPTH) (CONS 'DEPTHP (MAKE-BYTEV 12)))
  3. (DEFINE (DEPTH-DEPTH X) (MREF-INTEGER (CHK-DEPTHP X) 0))
  4. (DEFINE (DEPTH-DEPTH! X Y) (SET-MREF-INTEGER! (CHK-DEPTHP X) 0 Y))
  5. (DEFINE (DEPTH-NVISUALS X) (MREF-INTEGER (CHK-DEPTHP X) 4))
  6. (DEFINE (DEPTH-NVISUALS! X Y) (SET-MREF-INTEGER! (CHK-DEPTHP X) 4 Y))
  7. (DEFINE (DEPTH-VISUALS X)
  8.         ((LAMBDA (X Y) (CONS 'VISUALP (MREF-POINTER X Y)))
  9.          (CHK-DEPTHP X)
  10.          8))
  11. (DEFINE (DEPTH-VISUALS! X Y)
  12.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-VISUALP Z)))
  13.          (CHK-DEPTHP X)
  14.          8
  15.          Y))
  16.